1 Public Class FrmCOLLECTION_SUMMARY
2
3     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
4         Me.Close()
5     End Sub
6
7     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
8         Dim Report As New FrmREPORTS
9         Rpt_SqlStr =
"SELECT * FROM TBL_Sales_Receipt WHERE Sales_ID NOT IN (SELECT Sales_ID FROM TBL_Sales_Void) " & _
10                      
"AND Receipt_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Receipt_Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "'"
11         globalFRM =
"collection_report"
12         Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Collection Summary ")
13         Me.Close()
14         Report.Show()
15         
'FrmREPORTS.Show()
16     End Sub
17 End Class


Gõ tìm kiếm nhanh...